﻿

Namespace Buchungen

    Public Class CSVEintragExporter

        Public Const START_ROW As Integer = 0

        Public Sub New()
        End Sub

        Public Function GetCSVEinträge(ByVal dataTable As System.Data.DataTable, ByVal importfile As String) As List(Of CSVEintrag)
            Dim locsve As New List(Of CSVEintrag)
            For i As Integer = START_ROW To dataTable.Rows.Count - 1 Step 1
                With dataTable.Rows(i)

                    Dim csve As New CSVEintrag

                    csve.Index = i - START_ROW
                    csve.Buchungsdatum = Date.Parse(Utils.DbNull2Nothing(!Buchungstag).ToString())
                    csve.Wertstellungsdatum = Date.Parse(Utils.DbNull2Nothing(!Wertstellung).ToString())
                    csve.Buchungstext = Utils.DbNull2Nothing(!Buchungstext).ToString()
                    csve.Betrag = CDbl(Utils.DbNull2Nothing(!Betrag))
                    csve.Kontostand = CDbl(Utils.DbNull2Nothing(!Kontostand))
                    csve.Beguenstigter = CStr(Utils.DbNull2Nothing(.Item("Auftraggeber/Empfänger")))
                    csve.Kontonummer = CStr(Utils.DbNull2Nothing(!Kontonummer))
                    csve.Verwendungszweck(0) = CStr(Utils.DbNull2Nothing(!VWZ1))
                    csve.Verwendungszweck(1) = CStr(Utils.DbNull2Nothing(!VWZ2))
                    csve.Verwendungszweck(2) = CStr(Utils.DbNull2Nothing(!VWZ3))
                    csve.Verwendungszweck(3) = CStr(Utils.DbNull2Nothing(!VWZ4))
                    csve.Verwendungszweck(4) = CStr(Utils.DbNull2Nothing(!VWZ5))
                    csve.Verwendungszweck(5) = CStr(Utils.DbNull2Nothing(!VWZ6))
                    csve.Verwendungszweck(6) = CStr(Utils.DbNull2Nothing(!VWZ7))
                    csve.Verwendungszweck(7) = CStr(Utils.DbNull2Nothing(!VWZ8))
                    csve.Verwendungszweck(8) = CStr(Utils.DbNull2Nothing(!VWZ9))
                    csve.Verwendungszweck(9) = CStr(Utils.DbNull2Nothing(!VWZ10))
                    csve.Verwendungszweck(10) = CStr(Utils.DbNull2Nothing(!VWZ11))
                    csve.Verwendungszweck(11) = CStr(Utils.DbNull2Nothing(!VWZ12))
                    csve.Verwendungszweck(12) = CStr(Utils.DbNull2Nothing(!VWZ13))
                    csve.Verwendungszweck(13) = CStr(Utils.DbNull2Nothing(!VWZ14))
                    csve.ImportFile = importfile

                    locsve.Add(csve)

                End With
            Next

            Return locsve

        End Function

    End Class

End Namespace